module Combo (Combo, nuevoC, bebidaC, sandwichC, dificultadC)
where 

import Tipos

data Combo = C Bebida Hamburguesa Energia deriving (Show, Eq)

nuevoC :: Bebida -> Hamburguesa -> Energia -> Combo
nuevoC b h e = C b h e 

bebidaC :: Combo -> Bebida
bebidaC (C b h e) = b

sandwichC :: Combo -> Hamburguesa
sandwichC (C b h e) = h

dificultadC :: Combo -> Energia
dificultadC (C b h e) = e


--Combo de prueba nuevoC Pesticola McGyver 45
